﻿Module Copy
    Sub Main()
        Dim fSys = My.Computer.FileSystem
        Dim src = "C:\Users\handab\Documents\PlotDir\"
        Dim dst = "Z:\"
        For Each fname As String In fSys.GetFiles(src)
            Try
                fSys.RenameFile(fname, fname.Replace(" ", "_").Substring(src.Length))
            Catch ex As Exception

            End Try
        Next
        fSys.CopyDirectory(src, dst, True)
    End Sub
End Module
